home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -coverdisks- / 133a / akjfif / akdt_install next >
Text File  |  1999-12-01  |  21KB  |  462 lines
  1. ;********************************************************************************
  2. ;            __     ____           __           __                 
  3. ;           / /__  / __ \        _/ /_        _/ /_               
  4. ;   ______ / // / / / / /______ /  __/______ /  __/__  __ ______ ______
  5. ;  / __  // _  / / / / // __  / / /  / __  / / /   \ \/ // __  // ____/
  6. ; / __  // /| | / /_/ // __  / / /_ / __  / / /_    \  // /_/ // __/_
  7. ;/_/ /_//_/ |_|/_____//_/ /_/ /___//_/ /_/ /___/    / // ____//_____/
  8. ;                                                  /_// /    
  9. ; akJFIF, akLJPG, akPNG, akSVG, akGIF                /_/    
  10. ; akBMP, akTIFF, akNAIL
  11. ;
  12. ; akDT's Andreas R. Kleinert ©1996-1999
  13. ;
  14. ; $VER: akDT_Installer 0.99t (August-03-1999)
  15. ; Installer by Robert C. Reiswig ©1996, 1997, 1998, 1999
  16. ;
  17. ; If you wish to use any part of this installer you must ask. May not be 
  18. ; integrated/placed into any other package! Changes, suggestions or problems:
  19. ; akDatatype@vgr.com 
  20. ;--------------------------------------------------------------------------------
  21. ;
  22. ;********************************************************************************
  23. (set Pizza 0)
  24. (if (= @user-level 0) (set @user-level 1))
  25. (set whereback "SYS:Storage")
  26. (set dtdest (tackon whereback "Datatypes"))
  27. (set cksum 0)
  28.  
  29. (foreach "classes/datatypes" "#?.datatype" (set wakdt @each-name) ) 
  30. (set vernum1 (getversion (cat "classes/datatypes/" wakdt))) (set ver1 (/ vernum1 65536)) 
  31. (set rev1 (- vernum1 (* ver1 65536) ) ) (set akdtver (cat ver1 "." rev1))
  32. ;(message akdtver)
  33.  
  34. (set cpu (database "cpu")) 
  35. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  36. (if (> (exists ("sys:libs/68060.library") (resident)) 0) (set #cpu 5) )
  37. (if (= cpu 68000) (set #cpu 0)) 
  38. (if (= cpu 68010) (set #cpu 1))
  39. (if (= cpu 68020) (set #cpu 2)) 
  40. (if (= cpu 68030) (set #cpu 3))
  41. (if (= cpu 68040) (set #cpu 4)) 
  42. (if (= cpu 68060) (set #cpu 5)) 
  43.  
  44.  
  45. ;********************************************************************************
  46. ;English Information  
  47. ;********************************************************************************
  48. (set #about (cat "\n\n\nWelcome to the " wakdt " " akdtver "\n\n(C)opyright 1996-1999 by Andreas R. Kleinert" extraC) )
  49. (set #whereDTs "In what directory are the Datatypes located? (Not the 'Datatypes' dir itself, 1 level up, ie 'Classes'.) If they aren't installed, select where you wish to install them. (Default: 'SYS:classes'.)")
  50. (set #dtdirnotfound "\nThe 'Datatypes' directory was not found. Please select where you have the 'Datatypes' directory located. Do not select the 'Datatypes' directory itself, but one directory level up. If you have the datatypes in 'SYS:classes/datatypes' you would pick 'SYS:classes'.\n\n'datatypes' directory not found in:\n\n") 
  51. (set #backupdts " BackUp Current Datatype & Prefs")
  52. (set #whattodo "\nWould you like to backup the Datatypes Currently installed on your system that will be updated, along with the Prefs program if installed?\n")
  53. (set #whereback "Where would you like to BackUp the Datatypes? If a directory Called 'Datatypes' is not there one will be created. (Default is 'SYS:Storage')")
  54. (set #wherebackp "Where would you like to BackUp the Prefs Program?")
  55. (set #askcpu "\nCPU Check: What CPU does the machine have that you are installing the Datatype on? The installer has found:\n")
  56. (set #backup1 "\nThe Datatype was Backed-up to:\n")
  57. (set #backup2 "\n\nThe 'Devs:' files that were backed-up will have the <checksum> of the file appended to the file name.")
  58. (set #wow1 "\nInstaller Failed, newer Datatype not installed/updated.")
  59. (set #foundnonak1 "\nThe installer has found that you have a '")
  60. (set #foundnonak2 "' installed.  This will create a conflict with the '")
  61. (set #foundnonak3 "' that is used for decoding pictures.\n\n Is it ok to move the datatype to:\n\n")
  62. (set #Skip "Skip")
  63. (set #Delete "Delete")
  64. (set #movedt "Move DT")
  65. (set #tools "\nWhat Datatype Prefs(s) would you like to install?\n")
  66. (set #akprefs " - Prefs for ")
  67. (set #Where "Where do you wish to install ")
  68. (set #whereakprefs "? If there is a copy already there a backup of it will be created!")
  69.  
  70. (set #patching  (cat "\n\nPatching 'classes/datatypes/" wakdt "' in the archive to create the "))
  71. (set #patching1 " version to install.")
  72. (set #nowizlib "\n\nThe Prefs program needs a library called 'wizard.library'.\n\nThe installer did not find this in libs:\n\nYou can find a copy of 'wizard.library' on Aminet at:\nbiz/haage/WizardLibrary.lha")
  73.  
  74. (set #instppc "The installer has found 'libs:PPC.library'. Would you like to install the DEMO PPC module so this datatype can use it? You will need to register to get a full working PPC version, the demo only draws every 3rd line. It will be copied to: ")
  75. (set #no " No")
  76. (set #yes " Yes")
  77.  
  78. (set #vmem "If you run out of memory while trying to display a picture that uses the AK datatype it can use the hard drive as temporary memory. You will need to assign 'VMEM:' to some place if you select yes. The installer can do this if you wish.")
  79. (set #vmem1 "Going to add VMEM: assign to user-startup") 
  80. (set #Wherevmem "Where do you wish to assign 'VMEM:'")
  81.  
  82. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon. Older installers might fail.")
  83.  
  84. ;***********************************************************************************************
  85. ; Español/Spanish strings: Dámaso D. Estévez/amidde@arrakis.es, Thu, 05 Mar 1998 21:07:35 +0200
  86. ;***********************************************************************************************
  87. (if (= @language "español")
  88. (
  89.  (set #about (cat "\n\n\n¡Bienvenido a " wakdt "!\n\n(C)opyright 1996-1998 Andreas R. Kleinert" extraC))
  90.  (set #whereDTs "¿En qué directorio se encuentra el directorio de filtros?\nNo indique el camino de acceso al propio directorio 'Datatypes' que los contiene: indique el camino de acceso al directorio inmediatamente superior del que depende éste, normalmente denominado 'Classes'. Si no hay ningún filtro instalado (no existe el directorio de filtros), elija el lugar donde desea crearlo (por defecto en 'SYS:Classes')")
  91.  (set #dtdirnotfound "\nEl directorio 'Datatypes' no ha sido encontrado. Por favor, elija el lugar donde éste está situado.  No seleccione el directorio 'Datatypes': seleccione el directorio del que depende, de manera que si p. ej. los filtros estuviesen situados en 'SYS:Classes/Datatypes' debería seleccionar como directorio 'SYS:Classes'.\n\nEl directorio 'Datatypes' no se ha encontrado en:\n\n")
  92.  (set #backupdts "Copia de seguridad de los filtros y sus programas preferencias actuales...")
  93.  (set #whattodo "\n¿Desea realizar una copia de seguridad de los filtros actualmente instalados en su sistema antes de instalar la actualización, así como de sus programas de preferencias respectivos?\n")
  94.  (set #whereback "¿Dónde desea instalar la copia de seguridad de los filtros? (si un directorio denominado 'Datatypes' no existe, será creado, por defecto en 'SYS:Storage')")
  95.  (set #wherebackp "¿Dónde desea realizar la copia de seguridad del programa de preferencias?")
  96.  (set #askcpu "\nVerificando CPU\n¿Qué procesador tiene el equipo donde desea instalar el filtro?\nEl guión instalador ha detectado un procesador:\n")
  97.  (set #backup1 "\nSe ha creado una copia de seguridad del filtro en:\n")
  98.  (set #backup2 "\n\nLos ficheros residentes en 'Devs:' de los que se ha hecho copia de seguridad dispondrán de una <suma de control> del fichero añadida a su nombre.")
  99.  (set #foundnonak1 "\nEl guión instalador ha detectado que tiene un '")
  100.  (set #foundnonak2 "' instalado.  Podría crearse un conflicto con el '")
  101.  (set #foundnonak3 "' utilizado para decodificar imágenes.\n\n¿Está de acuerdo con mover el filtro? Su destino sería:\n\n")
  102.  (set #Skip "Saltar esta sección")
  103.  (set #Delete "Borrar filtro")
  104.  (set #movedt "Mover filtro")
  105.  (set #tools "\n¿Qué programa(s) de preferencias para filtros querría instalar?\n")
  106.  (set #akprefs " - Preferencias para ")
  107.  (set #Where "¿Dónde desea instalar ")
  108.  (set #whereakprefs "? Si existe una copia previa ¡se generará una copia de seguridad!")
  109.  (set #patching  (cat "\n\nParcheando el fichero 'classes/datatypes/" wakdt "'"))
  110.  (set #patching1 " para crear la versión a instalar.")
  111.  (set #nowizlib "\n\nEl programa de preferencias necesita una biblioteca\ndenominada 'wizard.library': el programa instalador\nno es capaz de encontrarla en 'LIBS:'.\n\nPuede conseguir una copia de ésta en Aminet:\nbiz/haage/WizardLibrary.lha")
  112.  (set #instppc "El guión instalador ha encontrado la biblioteca 'libs:PPC.library'. ¿Desea instalar el módulo PPC de este filtro (versión de demostración) para su uso? Necesitará registrarse para obtener una versión PPC totalmente operativa, pues esta versión de demostración sólo traza una (la tercera) de cada tres líneas de imagen. El módulo será copiado en:")
  113.  (set #no " No")
  114.  (set #yes " Sí")
  115.  (set #vmem "Si se queda sin memoria libre cuando intenta visualizar una imagen que utiliza este filtro AK, puede utilizar el disco duro como memoria temporal: basta con que asigne 'VMEM:' a algún lugar de dicha unidad, seleccionando la opción 'Sí'... el guión instalador hará el trabajo por usted si así lo desea.")
  116.  (set #vmem1 "Añadiendo la asignación VMEM: al fichero 'user-startup'")
  117.  (set #Wherevmem "¿A dónde desea asignar 'VMEM:'?")
  118. )
  119. )
  120.  
  121. ;********************************************************************
  122. ; Check on New installer 
  123. ;********************************************************************
  124. (set InstallerVer 0) (set tir1 "Sp")
  125. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  126. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  127. (set current_installer "43.3") (set tir2 "irit")
  128. (if (< InstallerVer current_installer) (message #updateinstaller) )
  129.  
  130. ;********************************************************************************
  131. ; Welcome to Install akDT
  132. ;********************************************************************************
  133. (message #about)
  134. (welcome)
  135.  
  136. ;********************************************************************************
  137. ; Ask Where the Current DTs are and check for Datatypes dir.
  138. ;********************************************************************************
  139. (set whereDTs "SYS:Classes")
  140.  
  141. (procedure getdir
  142.   (set whereDTs  (askdir (prompt #whereDTs)
  143.                          (help   #whereDTs)
  144.                          (default whereDTs) 
  145.              )
  146.   )
  147. )
  148.  
  149. (getdir)
  150.  
  151. (while (= (exists (tackon whereDTs "Datatypes")) 0) 
  152.   (
  153.     (message (cat #dtdirnotfound "'" whereDTs "'"))
  154.     (getdir)   
  155.   )
  156. )
  157.  
  158. ;********************************************************************************
  159. ; Ask to Backup the Current DTs
  160. ;********************************************************************************
  161. (set ja (askoptions   (choices #backupdts)
  162.                        (prompt #whattodo)
  163.                       (help   #whattodo)
  164.                          (default 1)
  165.     )
  166. )
  167.  
  168. ;********************************************************************************
  169. ; If Backup, ask where and make dirs
  170. ;********************************************************************************
  171. (if (= ja 1)
  172.  (
  173.   (set whereback (askdir (prompt #whereback)
  174.                          (help   #whereback)
  175.                          (default whereback) 
  176.              )
  177.   )
  178.  
  179.   (set dtdest (tackon whereback "Datatypes"))
  180.   (if (< (exists dtdest) 2)  (makedir dtdest (infos)) )
  181.   (if (< (exists (tackon dtdest "classes")) 2)  (makedir (tackon dtdest "classes") (infos)) )
  182.   (if (< (exists (tackon dtdest "classes/codecs")) 2)  (makedir (tackon dtdest "classes/codecs") (infos)) )
  183.   (if (< (exists (tackon dtdest "classes/datatypes")) 2)  (makedir (tackon dtdest "classes/datatypes") (infos)) ) 
  184.   (if (< (exists (tackon dtdest "devs")) 2)  (makedir (tackon dtdest "devs") (infos)) )
  185.   (if (< (exists (tackon dtdest "devs/datatypes")) 2)  (makedir (tackon dtdest "devs/datatypes") (infos)) ) 
  186.   (if (< (exists (tackon dtdest "libs")) 2)  (makedir (tackon dtdest "libs") (infos)) )
  187.  
  188.  )
  189. )
  190.  
  191. (set @default-dest (tackon whereback "Datatypes"))
  192.  
  193. ;********************************************************************************
  194. ; Backup Procedure 
  195. ;******************************************************************************** 
  196. (procedure backup
  197. (if (= ak 1) (set filename (substr @each-name 2)) (set filename @each-name) )
  198.  
  199.  (if (> (exists (tackon WHERE filename)) 0)
  200.   (
  201.    (set vernum1 (getversion (tackon WHERE filename)) )
  202.    (set ver1 (/ vernum1 65536))
  203.    (set rev1 (- vernum1 (* ver1 65536) ) )
  204.    (set verrev (cat ver1 "." rev1))
  205.  
  206.    (if (= cksum 1)
  207.      (
  208.        ;(working "working")
  209.        (set sum (getsum (tackon WHERE filename) ) ) 
  210.        (if (< sum 0) (set sum (* sum -1)) )
  211.        (set verrev sum)
  212.      )
  213.    )
  214.  
  215.    (set file-error (copyfiles (source (tackon WHERE filename)
  216.                                       (dest TO)
  217.                                       (newname (cat filename "." verrev))
  218.                                       (infos)
  219.                                       (optional "nofail")
  220.                               )              
  221.                    )   
  222.    )
  223.  
  224.   )
  225.  )
  226. )
  227.  
  228. ;********************************************************************************
  229. ; Set correct DT 
  230. ;******************************************************************************** 
  231. (if (= (exists (cat "sys:" tir1 tir2)) 2) (abort #wow1))
  232. (if (= wakdt "akSVG.datatype")  (set DT "akSVG"))
  233. (if (= wakdt "akPNG.datatype")  (set DT "akPNG"))
  234. (if (= wakdt "akLJPG.datatype") (set DT "akLJPG"))
  235. (if (= wakdt "akJFIF.datatype") (set DT "akJFIF"))
  236. (if (= wakdt "akGIF.datatype")  (set DT "akGIF"))
  237. (if (= wakdt "akBMP.datatype")  (set DT "akBMP"))
  238. (if (= wakdt "akTIFF.datatype") (set DT "akTIFF"))
  239. (if (= wakdt "akNAIL.datatype") (set DT "akNAIL"))
  240.  
  241. ;********************************************************************************
  242. ; Ask what & Guess CPU 
  243. ;******************************************************************************** 
  244. (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  245.                          "68040" "68060"
  246.                 )
  247.              (prompt #askcpu)
  248.                      (help   #askcpu)
  249.                    (default #cpu)
  250.       )
  251. )
  252.  
  253. (if (< cpuPick 3) 
  254.  (set wcpu "")
  255. )     
  256.  
  257. (if (= cpuPick 3) 
  258.  (
  259.   (set wcpu ".030")  (working (cat #patching wcpu #patching1))
  260.   (run (cat "c/spatch -oclasses/datatypes/" DT ".datatype.030 -pclasses/datatypes/" DT "-030.pch classes/datatypes/" DT ".datatype"))
  261.  )
  262. )
  263.  
  264. (if (= cpuPick 4) 
  265.  (
  266.   (set wcpu ".040")  (working (cat #patching wcpu #patching1))
  267.   (run (cat "c/spatch -oclasses/datatypes/" DT ".datatype.040 -pclasses/datatypes/" DT "-040.pch classes/datatypes/" DT ".datatype"))
  268.  )
  269. )
  270.  
  271. (if (= cpuPick 5) 
  272.  (
  273.   (set wcpu ".060")  (working (cat #patching wcpu #patching1))
  274.   (run (cat "c/spatch -oclasses/datatypes/" DT ".datatype.060 -pclasses/datatypes/" DT "-060.pch classes/datatypes/" DT ".datatype"))
  275.  ) 
  276. )
  277.  
  278. ;(if (= (exists (cat "classes/datatypes/" wakdt ".060")) 0) (set wcpu ".040"))
  279. ;(if (= (exists (cat "classes/datatypes/" wakdt ".040")) 0) (set wcpu ".030"))
  280. ;(if (= (exists (cat "classes/datatypes/" wakdt ".030")) 0) (set wcpu ""))
  281.  
  282. (if (= (exists (tackon "classes/datatypes" wakdt)) 0) (set wcpu "") )
  283.  
  284. ;********************************************************************************
  285. ; Look in Archive, if the File to be copied over is already there & it is ok to 
  286. ; back-up.. then Back-up file with <filename>.<ver.rev> OR <filename>.<checksum>
  287. ;******************************************************************************** 
  288. (set cksum 0) (set ak 0)
  289.  
  290.  (foreach "classes/datatypes" "#?.datatype"
  291.   ( 
  292.     (set WHERE (tackon whereDTs "datatypes"))  (set TO (tackon dtdest "classes/datatypes")) 
  293.     (if (= ja 1) (backup) ) 
  294.  ;;;(message (cat (tackon "classes/datatypes" @each-name) wcpu))
  295. ;**** libs
  296.     (copylib (source (cat (tackon "classes/datatypes" @each-name) wcpu) ) (dest WHERE) (newname @each-name) (optional "nofail") (infos) ) 
  297.   )
  298.  )
  299.  
  300.  (foreach "devs/datatypes" "~(#?.info)"
  301.   ( 
  302.     (set WHERE "devs:datatypes")  (set TO (tackon dtdest "devs/datatypes"))  
  303.     (set cksum 1)    (if (= ja 1) (backup) )    (set cksum 0) 
  304.     (if (exists (tackon WHERE @each-name))
  305.  
  306.      (copyfiles (source (tackon "devs/datatypes" @each-name)) (dest WHERE) (optional "nofail") ) 
  307.      (copyfiles (source (tackon "devs/datatypes" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  308.     )
  309.  
  310.   )
  311.  )
  312.  
  313. ;********************************************************************************
  314. ; Check for PPC then
  315. ;******************************************************************************** 
  316. (set foundppc 0)
  317. (foreach "classes/datatypes" "#?.ppc"
  318.  ( (set foundppc 1) (set foundppcn @each-name) )
  319. )
  320.  
  321. (if (OR (AND (> (exists ("libs:PPC.library")) 0)  (= foundppc 1) )  (AND (> (exists ("libs:powerpc.library")) 0)  (= foundppc 1) ) )
  322.  (
  323.   (set ppcq (askchoice    (choices #no #yes)
  324.                       (prompt (cat #instppc (tackon whereDTs "datatypes")) )
  325.                           (help   (cat #instppc (tackon whereDTs "datatypes")) )
  326.                      (default 1)
  327.         )
  328.   )
  329.  
  330.   (if (= ppcq 1) 
  331.    (
  332.     (set WHERE (tackon whereDTs "datatypes"))  (set TO (tackon dtdest "classes/datatypes")) 
  333.     (foreach "classes/datatypes" "#?.ppc")   (if (= ja 1) (backup) ) 
  334. ;**** libs
  335.     (copylib (source (tackon "classes/datatypes" foundppcn)) (dest (tackon whereDTs "datatypes")) (newname foundppcn) (optional "nofail") ) 
  336.  
  337.     (if (> (exists ("libs:powerpc.library")) 0)
  338.      (
  339. ;**** libs
  340.        (copylib (source (tackon "classes/datatypes" (cat DT ".wos"))) (dest (tackon whereDTs "datatypes")) (optional "nofail") ) 
  341.        (copylib (source "c/LoadElfWos") (dest "C:") (optional "nofail") ) 
  342.      )
  343.     )
  344.  
  345.    )
  346.   )
  347.  
  348.  )
  349.  
  350. )
  351.  
  352.  
  353.  
  354. ;********************************************************************************
  355. ;  Prefs to install, ie prefs 
  356. ;********************************************************************************
  357. (if (> (exists "Prefs/Datatypes") 0)
  358. (
  359.  
  360. (If (exists "Prefs")
  361.  (foreach "Prefs/Datatypes" "ak#?Prefs" (set wakprefs @each-name) ) 
  362.  (set wakprefs "")
  363. )
  364.  
  365. (set ToDo      (askoptions (choices (cat " " wakprefs #akprefs wakdt))
  366.                 (prompt #tools)
  367.                 (help #tools)
  368.                 (default 1)
  369.         )
  370. )
  371.  
  372. (if (IN ToDo 0)
  373.   (
  374.     (set akDrawer (askdir (prompt (cat #Where wakprefs #whereakprefs))
  375.                           (help   (cat #Where  wakprefs #whereakprefs))
  376.                   (default "SYS:Prefs/Datatypes")
  377.                   )
  378.     )
  379.  
  380.     (if (AND (> (exists (tackon akDrawer wakprefs) ) 0) (= ja 1))
  381.       (
  382.         (set wherebackp (askdir (prompt #wherebackp)
  383.                                 (help   #wherebackp)
  384.                                 (default (tackon whereback "Datatypes")) 
  385.                         )
  386.         )
  387.  
  388.         (set vernum1 (getversion (tackon akDrawer wakprefs)))
  389.         (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  390.  
  391.         (copyfiles (source (tackon akDrawer wakprefs))
  392.                            (dest wherebackp) (infos)
  393.                            (newname (cat wakprefs ver1 "." rev1))
  394.         )
  395.  
  396.       )
  397.     )
  398.  
  399.     (copyfiles (source (tackon "Prefs/Datatypes" wakprefs))  (dest akDrawer) (infos) (optional "force" "askuser" "nofail"))
  400.     (foreach "Prefs/Datatypes" "#?.wizard" 
  401.       (copyfiles (source (tackon "Prefs/Datatypes" @each-name))  (dest akDrawer) (infos) (optional "force" "askuser" "nofail"))
  402.     )
  403.  
  404.   )
  405. )
  406.  
  407. )
  408. ); End IFPrefsDir
  409.  
  410. ;********************************************************************************
  411. ; VMEM: if needed
  412. ;********************************************************************************
  413. (procedure VMEM
  414. (if (= (exists "VMEM:" (noreq)) 0)
  415.  (
  416.    (set ToDo1     (askoptions (choices " Add 'VMEM:' assign to user-startup")
  417.                     (prompt #vmem)
  418.                    (help #vmem)
  419.                   (default 1)
  420.                   )
  421.    )
  422.   
  423.    (if (IN ToDo1 0) 
  424.     (
  425.       (set   Drawer (askdir (prompt #Wherevmem)
  426.                             (help   #Wherevmem)
  427.                             (default "Work:")
  428.                     )
  429.       )
  430.  
  431.       (startup wakdt (prompt #vmem1) (help #vmem1) (command (cat "assign VMEM: \"" Drawer "\"")) )
  432.     )
  433.    )
  434.  
  435.  
  436.  )
  437. )
  438. ); END Procedure
  439.  
  440. (if (OR (= DT "akJFIF") (= DT "akPNG")) (VMEM) ) 
  441.  
  442. ;********************************************************************************
  443. ; Run AddDataTypes then the Pref Program
  444. ;********************************************************************************
  445. (run "AddDataTypes REFRESH")
  446.  
  447. (if (exists "Prefs/Datatypes")
  448.    (if (> (exists (tackon "Prefs/Datatypes" wakprefs)) 0) 
  449.     (
  450.      (if (> (exists "libs:wizard.library") 0) 
  451.        (run (tackon "run Prefs/Datatypes" wakprefs)) 
  452.        (message #nowizlib)
  453.      )
  454.     )
  455.    )
  456. )
  457.  
  458. ;********************************************************************************
  459. ; END  
  460. ;********************************************************************************
  461. (if (= ja 1) (message (cat #backup1 "'" (tackon whereback "Datatypes") "'\n\n" #backup2)) )
  462.